#!
@boys = qw(Tom John Peter Jun);
@girls = qw(Rose Mary Halen);
@kids = (@boys,@girls);
#output all elements
print "@kids";
print "\n";
#the last accessable element index
print $#boys;
print "\n";
# output elemet 1,3
print "@boys[1,3]";

#size of kids array
$size = @kids;
print "\n";
print "size is $size";
#cast
print "\n";
print scalar @kids;